home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / asmutil / asm_n_z.zip / TSRDEMO2.ASM < prev    next >
Assembly Source File  |  1987-03-10  |  46KB  |  1,503 lines
  1. page    60,132
  2. ;==============================================================================
  3. ; TSRDEMO2.ASM
  4. ; Thomas Brandenborg
  5. ; 87.02.11
  6. ;
  7. ; Sample demonstration of a safe approach for writing TSR programmes.
  8. ;
  9. ;------------------------------------------------------------------------------
  10. ; Copyright 1987 by Thomas Brandenborg. All Rights Reserved
  11. ; Written for uploading to Compuserve Forums by
  12. ; 
  13. ;    Thomas Brandenborg
  14. ;    Lundbyesgade 11
  15. ;    DK-8000 Aarhus C
  16. ;    DENMARK
  17. ;
  18. ; This code is intended as a reference to users on Compuserve Forums
  19. ; on how to write Terminate-And-Stay resident programmes for Personal
  20. ; Cumputers running under DOS versions 2.00 and newer.
  21. ;
  22. ; The code is not part of any proprietary product, but is rather a
  23. ; demonstration of such techniques that may be used to write safe TSR
  24. ; programmes.
  25. ;
  26. ; All or part of it may, however, be used in other software products
  27. ; or otherwise distributed assuming the copyright holders Name & Address
  28. ; as listed above are included clearly and visibly in the documentation
  29. ; for such product.
  30. ;
  31. ; The copyright holder offers no warranty with this code whatsoever,
  32. ; including its fitness for any particular purpose. Neither shall he
  33. ; be liable for damages of any kind that may arise from its use.
  34. ;
  35. ;
  36. ; IF YOU THINK THIS CODE IS USEFUL:
  37. ;
  38. ; If you think this code has had some value to you, and in particular
  39. ; if you consider using all or parts of it in your own product, you
  40. ; may want to consider a smaller or larger donation to the author
  41. ; (Name & Address above) who spend his late night hours putting
  42. ; it together.
  43. ;
  44. ; As to the size of a such donation this is entirely up to your own
  45. ; judgement. It is suggested that you simply consider the value this
  46. ; code has had to you, the time you saved not having to write it your
  47. ; self... that should help you determine the right amount.
  48. ;
  49. ; Please notice that such donations are an entirely voluntary contribution.
  50. ; This holds true whatever your purpose is for using this code, and whatever
  51. ; the type of product and distribution you work with. The author has nothing
  52. ; against commercial software distribution and does not have any reason
  53. ; to restrict developers of commercial products in their use of this code.
  54. ;------------------------------------------------------------------------------
  55. ; COMPILING:    masm tsrdemo2;
  56. ; LINKING:    link tsrdemo2;
  57. ;         exe2bin tsrdemo2 tsrdemo2.com
  58. ;------------------------------------------------------------------------------
  59. ; Revisions
  60. ; Brandenborg 87.02.14    Added copyright notice & checked comments
  61. ; Brandenborg 87.02.17    Added full AX value in Set Ext Err call
  62. ; Brandenborg 87.02.25    Went through to optimize things
  63. ; Brandenborg 87.02.28    Added auto INT28 invocation in INT16 handler
  64. ; Brandenborg 87.03.01    Added INT21 filter for recursion onto console stack
  65. ; Brandenborg 87.03.02    Final cleanup of comments etc.
  66. ; Brandenborg 87.03.10    INT28 handler chains AFTER popup actions
  67. ;            InitPopup: INT21.33 (AL=2) not allowed for DOS 2.x
  68. ;            InitPopup: Set ext err info uses all regs
  69. ;==============================================================================
  70.  
  71. ;==============================================================================
  72. ; DEFINE BIOS DATA SEGMENT OFFSETS
  73. ;==============================================================================
  74.  
  75. BiosData    segment at 40h
  76.         org    17h
  77. KbFlag        label    byte        ;current shift status bits
  78.         org    18h
  79. KbFlag1        label    byte        ;current key status of toggle keys
  80. BiosData    ends
  81.  
  82. ;==============================================================================
  83. ; DEFINE OFFSETS WITHIN BIOS EXTRA DATA SEGMENT
  84. ;==============================================================================
  85.  
  86. BiosXX        segment at 50h
  87.         org    0
  88. StatusByte    label    byte        ;PrtSc status
  89. BiosXX        ends
  90.  
  91. ErrPrtSc    equ    -1        ;err during last PrtSc
  92. InPrtSc        equ    1        ;PrtSc in progress
  93.  
  94. ;==============================================================================
  95. ; DEFINE OFFSETS WITHIN OUR PSP
  96. ;==============================================================================
  97.  
  98. Cseg        segment byte public
  99.         org    2
  100. TopSeg        label    word        ;last seg in alloc block
  101.         org    2ch
  102. EnvSeg        label    word        ;seg of our environment copy
  103. Cseg        ends
  104.  
  105. ;==============================================================================
  106. ; DOS COM-FILE ENTRY POINT
  107. ;==============================================================================
  108.  
  109. Cseg        segment public byte
  110.         assume    cs:Cseg, ds:nothing, es:nothing, ss:nothing
  111.         org    100h
  112. ComEntry:    jmp    Init        ;JMP to init at bottom of seg
  113.  
  114. ;==============================================================================
  115. ; IDENTIFICATION CODES FOR THIS TSR (MUST BE UNIQUE FOR EACH CO-EXISTING TSR)
  116. ; HIGH BYTE OF GetId MUST NOT MATCH ANY AH REQUEST CODES FOR INT16H.
  117. ;==============================================================================
  118.  
  119. GetId        equ    'tc'            ;INT16h AX val to get MyId
  120. MyId        equ    'TC'            ;ID of this TSR
  121.  
  122. ;==============================================================================
  123. ; FLAGS AND PTRS FOR RESIDENT HANDLING
  124. ;==============================================================================
  125.  
  126. TsrMode        db    0            ;bits for various modes
  127. InInt08        equ    1 SHL 0            ;timer0 tick handler
  128. InInt09        equ    1 SHL 1            ;keyboard handler
  129. InInt13        equ    1 SHL 2            ;BIOS disk I/O
  130. InInt28        equ    1 SHL 3            ;INT28 handler
  131. In28Call    equ    1 SHL 4            ;we have issued INT28
  132. InPopup        equ    1 SHL 5            ;popup routine activated
  133. NewDos        equ    1 SHL 6            ;DOS 2.x in use
  134. InDosClr    equ    1 SHL 7            ;InDos=0 at popup time
  135.  
  136. KeyMode        db    0            ;bits for hotkey status
  137. HotIsShift    equ    1 SHL 0            ;hotkey is shift state
  138. InHotMatch    equ    1 SHL 1            ;so far keys match hotkey seq
  139. HotKeyOn    equ    1 SHL 2            ;full hotkey pressed
  140.  
  141. InDosPtr    label    dword            ;seg:off of InDos flag
  142. InDosOff    dw    0
  143. InDosSeg    dw    0
  144.  
  145. CritErrPtr    label    dword            ;seg:off of CritErr flag
  146. CritErrOff    dw    0
  147. CritErrSeg    dw    0
  148.  
  149. ;==============================================================================
  150. ; DATA FOR INT09H HANDLER TO CHECK FOR HOTKEY COMBINATION
  151. ;==============================================================================
  152.  
  153. ; ------------    EQU'S FOR BIT SHIFTS WITHIN KEYBOARD FLAGS
  154.  
  155. InsState    equ    80h
  156. CapsState    equ    40h
  157. NumState    equ    20h
  158. ScrollState    equ    10h
  159. AltShift    equ    08h
  160. CtlShift    equ    04h
  161. LeftShift    equ    02h
  162. RightShift    equ    01h
  163.  
  164. InsShift    equ    80h
  165. CapsShift    equ    40h
  166. NumShift    equ    20h
  167. ScrollShift    equ    10h
  168. HoldState    equ    08h
  169.  
  170. ; ------------    SCAN CODES FOR VARIOUS SHIFT KEYS
  171.  
  172. LeftDown    equ    42            ;scan code of left shift key
  173. LeftUp        equ    LeftDown OR 80h
  174. RightDown    equ    54            ;scan code of right shift key
  175. RightUp        equ    RightDown OR 80h
  176. AltDown        equ    56            ;scan code of alt key
  177. AltUp        equ    AltDown OR 80h
  178. CtlDown        equ    29            ;scan code of ctrl key
  179. CtlUp        equ    CtlDown OR 80h
  180.  
  181. ; ------------    MISC KEYBOARD DATA
  182.  
  183. KbData        equ    60h            ;keyboard data input
  184.  
  185. ;==============================================================================
  186. ; TO USE A SHIFT KEY COMBINATION AS HOT KEY:
  187. ;  -    SET THE FLAG HotIsShift IN KeyMode
  188. ;  -    DEFINE THE SHIFT STATUS BITS IN THE VARIABLE HotKeyShift
  189. ;
  190. ; TO USE A SERIES OF SCAN CODES AS HOT KEY:
  191. ;    CLEAR THE FLAG HotIsShift IN KeyMode
  192. ;  -    INSERT THE MAKE AND BREAK SCAN CODES IN THE HotKeySeq STRING
  193. ;    NOTE:    WITH THIS DEMO IMPLEMENTATION YOU SHOULD NOT USE A HOT KEY
  194. ;        SEQUENCE WHICH PRODUCES A KEY IN THE BIOS KEYBOARD QUEUE,
  195. ;        SINCE THE KEY IS NOT REMOVED BEFORE CALLING THE POPUP ROUTINE.
  196. ;
  197. ; NOTE:    HOTKEY TYPE AND CONTENTS OF HOTKEY VARIABLES MAY BE CHANGED AT RUN TIME
  198. ;==============================================================================
  199.  
  200. HotKeyShift    db    LeftShift OR RightShift    ;shift state IF HotIsShift=FF
  201.  
  202. HotKeySeq    db    LeftDown,LeftUp,LeftDown,LeftUp
  203. HotKeyLen    equ    $-HotKeySeq
  204. HotIndex    db    0            ;# key in seq to compare next
  205. BetweenKeys    db    0            ;timeout count between keys
  206. KeyTimeOut    equ    10            ;more ticks means not a hotkey
  207.  
  208. ;==============================================================================
  209. ; DATA FOR INT08H HANDLER TO CHECK FOR POPUP
  210. ;==============================================================================
  211.